*********************
*This file contains the code to generate
*Figure 1
***********************
clear
import excel data_wahlkreise, firstrow
collapse (mean) wkSeats wkSeats18, by(wk18)
gen RatioDM = wkSeats18/wkSeats
hist RatioDM [weight=wkSeats18], discrete percent ytitle("Parliamentary seats (%)") xtitle("Ratio of post-reform district magnitude to pre-reform district magnitude") width(0.5) xlab(1 2 3 4 5 6 7) ymtick(5 15 25)  scheme(s1mono) legend(off)
graph export Fig1.pdf, replace
